home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Hyper
/
Q-R
/
RPN Calculator.cpt
/
RPN Calculator
/
stack.txt
< prev
Wrap
Text File
|
1988-09-16
|
4KB
|
133 lines
-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x5000 (can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2751
-- card count: 27
-- first card id: 4542
-- list block id: 3958
-- print block id: 3555
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 86016 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on startUp
getHomeInfo
pass startUp -- to a startUp XCMD, if present
end startUp
on resume
getHomeInfo
pass resume -- to a resume XCMD, if present
end resume
on openStack
global nform,tmode,prog,pos,priorlevel,running
hide menuBar
hide message
put "0.0000" into nform
put "rad" into tmode
put "Rad" into card field "DR" of card "Calc"
put 0 into prog
put 0 into running
put 0 into chink
put 2 into pos
hide card field "RnInd" of card "Calc"
hide card field "PrgInd" of card "Calc"
show button "Set Home" of card "Calc"
get the userLevel
put it into priorLevel
set userLevel to 2
set the blindTyping to false
end openStack
on closeStack
global priorLevel
set userlevel to priorLevel
show menuBar
end closeStack
on enterKey
send mouseUp to button "E"
send mouseUp to button "Kbd"
end enterKey
on pushup
delete first line of card field Regs
end pushup
on doMenu task
if the userLevel = 5 then
pass doMenu
else
if task = "Print Report..." then pass doMenu
if task = "Compact Stack" then pass doMenu
if task = "Copy Button" then pass doMenu
if task = "Paste Button" then pass doMenu
if task = "Cut Text" then pass doMenu
if task = "Copy Text" then pass doMenu
if task = "Paste Text" then pass doMenu
end if
end doMenu
on idle
if the userLevel = 5 then exit idle
hide menuBar
end idle